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1.0 . General comment 

l.i " Procedure SO : stores word in object program on address P. 

1.2 Procedure SOa: extracts from list L and conjugates. 

1.3 Procedure SOc: stores word in list L on address S. 

1.4 Procedure SOd: equips object programme with storing and 

extracting a partial result. 

1.5 Procedure SOe: stores declaration list I. 

1.6 Procedure SOf : looks up identifier f in list I. 

1.7 Procedure SQg: shifts list L to the mid of the range P...T. 

1.8 Procedure SOh: completes dynamic introduction of a block.-. 

1.9 Procedure SGi: reserves address P of the object programme 

for a pass instruction. 
1.1,0 Procedure SOk: places extract normally instruction. 
1.11 • Procedure SOI: contra declares a label. 
1*12- Procedure SOin: stores word in list L on address So-1 . 

1.13 Procedure SOn: stores contra declaration and internal 

equivalent of an identifier. 

1.14 Procedure SOp: contra declares name of function having no 

parameters. 
1,,15 Procedure SOr: inverts gression bit of instruction d. 
1,16 . Procedure SOs: makes contra declaration of subscripted 
- actual parameter, 

i;'1? Progressive and regressive after-actions of the opening symbpla 
1*18 . <; Compound statement "Entry". . 

1.19 Compound statement S1: Entry for delimiters being either an 

operator, or a separation or closing 
symbol. 

1.20 Compound statement S2: Pre-action of the opening symbol if. 
1.21- Compound statement S 2 a: After-actions of the opening symbol if. 

'tv22 Compound statement S3 : Pre-action of the opening symbol begin . 
|v23 Compound statement S3a: Entry for declarators and specif icators. 
f*24 Compound statement S3b:Af ter-action of the opening symbol begjn. 
1.25 Compound statement S3 c: Entry for colon. 
1*26 Compound statement S4 : Entry for identifiers. 
1,27 ' /impound statement S4a; Entry for constants. 
-1.28 ' : r xpound statement S5 :Pre-action of the opening symbol (. 
1.29 Wid statement S5a: After-actions of the opening symbol (. 
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1.30 Compound statement S5*>: Action of the delimiter lsq. 

1 .31 Compound statement S6 : Pre-action of the opening symbol [ . 

1.32 Compound statement S6a: After-actions of the opening symbol [. 

1.33 Compound statement S7 : Pre-action of the opening symbol for . 

1.34 Compound statement S7&J After-actions of the opening symbol 

for . 

1.35 Compound statement S8 : Pre-action of the opening symbol go to. 

1.36 Compound statement S8as After-actions of the opening symbol 

go to . 

1.37 Compound statement S8b: After-actions of the opening symbol 

switch . 

1.38 Compound statement S8d: After-actions of the opening symbol 

procedure . 

1.39 Compound statement S9 : Pre-action of the openihgysymbol;=. 

1.40 Compound statement S9a: After-actions of the opening symbol :=. 



1.0 General comment 1.0,1 

ALGOL Translator 
"begin comment 

Restrictions in action: 

1 In any "block head within a text to he translated, the 
declarations of* simple varahles and arrays are supposed 
to precede those of procedures and switches. 

2 The hounds of own arrays are supposed to he integral 
constants. 

3 The controlled variahle of a for statement may not he 
a sub scrip ted variable. 

Notations: 

1 Above each labeled line, all references to the label are 
gathered, represented by "approximate" labels. 

2 Within the programme, many constants are written in a 
semi-binary notation, in which powers of 2 occur as 
factors and terms. 

Crosses x on the right-hand side of the pages mark the 
lines, in which such non-variable expressions appear 
which, of course, should better be replaced in the text 
by their values. 

3 Other constants, listed in table 1E, are conveniently 
referred to by names which, in praxis, are to be replaced 
in the text by the appropriate values. Crosses + on the 
right-hand side of the pages mark the lines concerred. 

Composition: 

The translator, a block, contains procedure wrong, the 
procedures of the SO-series, 

; the switches sw and SW, and the compounds Si, S2, S2a, S3, S3a, SJb, 

S3c,Sh,SUa.S5,S5a,S5b,S6,S6a,S7,S7a,S8,S8a,S8b,38d.,S9,S9a, 
input and inputl <, 



1.0,2 



input, depending on the kind of string taken from 
the tape, goes to either SL\L-\ (for an identifier), or to 
Sl*aL1 (for an unsigned number) , or to one of the labels 
mentioned in tables 1A and 1B. It assigns the value of 
the string to variable f of table i+A., which is, however, 
not necessary when the string is a delimiter 
: : = ( [ begin for .go to if ls^a . 
When f is a number, input assigns the value 

OOOOOOtOl 0...0 to variable g. The bit t indicates the 
representation of the number f . 

inputl (cf. S5b). 

Non-ALGOL features: 

1 The translator considers boolean type to be the same 
as integer type. Thus variables declared boolean may 
assume integral values. Internally, true and false are 
represented by and -1 respectively. Then the 
significance of operator or. can be extended as follows: 

2 When applied to integers p and q, p or q denotes the 
logical product of p and q which, of course, might also 
be obtained by a procedure logical product (pari , par2) • 

3 The ZEBRA, for which this translator has been developed, 
is a binary machine with 8192 locations in its store, 
each of which containing 33 bits bg, b^ ... "b^* 

b Q is the sign digit: b^ -» pos., 1 -* neg. 

Then x < is a short notation for logical product 

(x, 232.) * 0; 



1.0*3 



own integer array st [PO : QO] • 



integer a, Id, c, d, e, 
D, mark, P, q., R, S, S 
SO, T, T1 r T2, u, v; 

procedure wrong; 



f» g, 
accent, 



comment 
In this space, object programmes are built up, and it 
also contains the lists I and L ; needed in translation 
time (of. variables P, T, S of table kk) ; 

cf . table hA; 



This hardware programme stops and prints address, from 
which it has been invoked. That address corresponds to 
the occurred kind of misery listed in table 5 as a 
function of a variable assuming labels as values; 



1.1.1 

comment 

procedure SO(F); stores word in object programme on address P; 

begin 

st[p] : = Fj P : = P + 1; 

if P>S0-2 then SOg; for shifting list L away from object programme 

end SO; 



procedure i 


30a; 


"begin 




c : = st[s 


-33; 


d : = st[S 


-2]; 


e : = st[S 


- 1]; 


a : = 480 j 


yr d; b 



end SOa; 



1.2.1 

comment 
extracts from list L and conjugates; 



= 2+80 or f ; 2+80 is = 511 - 31 , thus b is = 32 x rank of 
delimiter f (cf. tables 1 A and B) 



1 .3.1 



comment 
procedure SOc(F); stores word in list L on address S; 

begin 

st[s] : = P; S : = S + 2 ; 

if S + 1 > T then SOg; for shifting list L away from I 
end SOc; 



1.U.1 



procedure SOdj 

jbegin 

st[Saccent - 1 ] : = 

2t23 x 3 + 2t26 x 63; 

SO(partres) 

end SOd; 



comment 

equips ODject programme with storing and extracting a 
partial result; 



x 

+ 



1.5.1 



procedure SOe (P) 

"begin 

st[T - 1 ]: = ej 

sttTlt = F; T, : = T - 2; 

if S + 1 ■>■ T then SOg; 

end SOe ; 



comment 
stores declaration in list I; 

is internal equivalent of identifier P; 

for shifting list L away from I (cf .SOe) 



1.6.1 



procedure SOf ; 



"begin 

g : = 0; c : = T1; 
S0fL1 : if T2 - c then £0 to 
S0fL3; 

c : = c ' + 2 ; 
if st[c] / f : then £o to 
SOf L1 ; 

d : = e : = st[c - 1]; 
if 2 x d > then 
begin 

if k x d > then go to 
SOfLh; 
e : = c - 1 j 



comment 
looks up identifier f in list I. on addresses 
T1 + 2, T1 + k f ... T2. 

If f is found, then c : = lowest address where f 

occurs, and d : = corresponding internal equivalent, 

which is positive. 

Otherwise d : = -1 • 

If f is found to be a simple variable or formal 

parameter, then e : = d. 

Otherwise e : = 2 + f , which is the contra- 

identifier of f, being negative. 

If f is found to be an array identifier,-, then 

g : = the ar1 instruction which is the internal 

equivalent of the factor identifier, being neg. (cf .S6L8) and 

u : = d, which is used on S6L 17 

Otherwise g : = 0; 

Then identifier has not been found; 



for extracting the next identifier; 



which is the internal equivalent of identifier f ; 



for label, switch- and procedure identifier; 



f is array identifier; 



1.6.2 



comment 



S0fL2 : e : = e - 2; g : = st[e]; 

if g > then go to S0fL2j Then ar1 instruction is not yet found; 

u : = d; go to SOfLU; 
S0fL3 : d : = -1 ; 

SOfLk ;, e- :''= f + 2t32 
end 



This compound statement is omitted in the case of a 
formal parameter or simple variable 



end SOf j 



1-7.1 



comment 

procedure SOg; shifts list L to the mid of the range P ... T; 

"begin 

a: = (P+T-S- SO) -5- 2; The distance from the mid of SO...S to that of 

P...T is = a + 1 with either 1 = 0, or ■§-, or -£j 

Saccent : = Saccent + a; 

S : = S + a; 

SO : = SO + a; 

if P + 2 > SO then 
S0gL1 : wrong;, ; Then translator is short of working space. 

Otherwise P + 2 is I SO 

and, "because of aos(l)^ £, also S + 1 ^ T 
as required in procedures SO, SOc, SOe, and SOm; 

if a > then 

for "b : = S step -1 until SO 

do st[b] : = st["b - a] 

else 

for b : = SO step 1 until S 

do st[b] : = st[b - a] 

end SOg; 



procedure SQh; 



1.8.1 

comment 
is invoked after reading the first array identifier 
of a list being not own (cf.Sl+Ll7), and also, when 
translation of a statement is beginning (cf . S2, S3, 
S5, S6, S7, S8, S9, S3cL2 and S3bLl). Bridging pass 
instructions are inserted in the dynamic introduction 
of a block on addresses previously reserved by 
procedure SOi, and the introduction is also completed 
by putting the instruction retain to its end. 
The procedure assigns the same values to variables c, 
d and e as does procedure SOa; 



= st [S - 2] j 



a : = st[S - 7] J 

c : = st[S - 3] ; d 

e : = st{-S -A }; 

if d = 322 and c ^ and a > 

then 

begin 

if a > then st[a] : = 

P + 2t23 + 2t26 x 121; 



if D < then a 
st[S - 7] : = a; 
if a < then 
begin 



q. : = q. - 1 



= D else a : = 



This only happens, when translation of a block head is 
stilL running; 

Then pass instruction (cf. table 1D) is inserted on x 
address a; 



Dynamic introduction of block is completed. 

q is smallest address reserved for simple variable 

which is local to block; 



1.8.2 



comment 
SO(retain); cf. table 1 'E 

end 

end SOh Thus, when st[S - 2]= 322 which is the value of 

"begin and st[S - 3]/ 0, (cf. S3 and S3a), then 
at [S - 7] can "be the address where to insert a 
pass instr. in dynamic introduction of block at 
next call of procedure SOh (cf. SOi), or when no 
pass instr. is to "be inserted, or negative, when 
introduction is ready; 



1.9-1 



procedure SOij 



£f at[S - 7] = then 

st[S - 7] : = P; 
S0(0) ; 

end ■- v : 
end SOi: 



comment 
is invoked on ShL10, SkLlk, S2+L2U, SkL37. 
Unless there has already been reserved an address, it 
reserves address P of the object programme for a pass 
instruction, which is to be inserted later by 
procedure SOh; 



A preliminary zero is inserted; 



1.10.1 



procedure SOk; 



if g = then 
"begin 



comment 
equips object programme with filling the 
accumulator, which is required whenever a computation 
is beginning in the object programme. For const. 98 
cf. table 1C; 

e, if > 0, is the internal equivalent of either a 
simple variable or formal parameter. If < 0, e is the 
contra-identifier of a function name, e = occurs only 
at a call from S1L10. Then nothing is added to the object 
programme ; 



if e/ then 

begin 

i£ e > then S0(e + 2t2 6 x 98) 

else SOp 

end if e > 0; 

end .if g = 

else 

begin 

SO (g + 2t26 x 98) j 
S0(e); 

end else 
end SOk; 



Representation of constant e is indicated by bit t of g = 
000000t01 0...0; 

Thus, in the object programme, constant e is subsequent 
to the extract normally instruction concerned; 



1.11.1 



procedure SOI; 

if g= then S0n(2t23 x 127) 
else 

if e < or 2f24 g e then 
S01L1 : wrong; 
else 
begin 
a : = e + 2f2l+ x 63 + 2t32; 

e : = P + 2123 x 127; 

SOe(a); 

S0(0) 

end SOl; 



comment 
contra-dee lares a label, which is either identifier 
st[S] or, when g ^ 0, the constant e. 
For 127 = 001111111 cf. table 2A; 



cf . table 5 



e + 2122+ x 63 is the identifier form of a 
constant label e; 



1.12.1 

comment 
procedure SOm(P) ; stores word in list L on address SO - 1 ; 

begin 

SO : = SO - 1; st [SO] : = F; 

if P + 2 > SO then SOg; compare procedure SO 
end SOm; 



1.13.1 



comment 
procedure SOn(P) ; stores contra-declaration of identifier st [S] 

(cf . SUL23) in list I, with P + P as internal equivalent; 
begin 

e : = P + F; 
SOe (st[S] + 2t32); 
S0(0); Thus a preliminary zero is stored in the place of 

an instruction which is inserted later 
end SOn; 



comment 

procedure SOpj contra-declares name of function having no parameters; 

begin 

a . - e . which is the contra-identifier of the function name; 

e : = P + 2t23 x 31 ; x 

SOe(a); 

S0(0) 

end SOp; 



1.15.1 



procedure SOr; 

"begin 

g : = d ot 2t26; 

if g = then 

"begin 

a : = d or. 2t26 x 126 j 

if a = 2t26 x 61+ or a = 2t26 x 68 

or a = 2t26 x 70 or a = 2t26 x 7k 

or a = 2t26 x 80 or a = 2t26 x 82 

or a = 2t26 x 88 

then g : = - 2t26 

end 



comment 
inverts gression "bit of instruction dj 



x 

X X 



Then operator (cf . ta"ble 1A) is not commutative. 
When the operator is commutative, the "bit dg = 
is not replaced "by 1 ; 



d : = d - g 
end SOr; 



1.16.1 



procedure SOs; 



Mgin 

a : = st[P]; 

e : = 2t23j 

if a / then e : 



= e o r a; 



if e = then a : = 

a + 2t23 + 2t26 x (108-125); 

S0(a); 

S0n(2t23 x 255 - 1) J 



comment 
This procedure makes a contra-declaration of 
identifier st[s] according to the value 
p = 011111111 

listed in table 2A together with an explanation. 
The procedure is invoked only on S2aLl9 and S5aL27 
and S2aLl9; 



Then e = indicates that a is an ar2 instruction 
(cf. S6aL6l ) referring to a formal parameter; 

Cf. VERIFY and ar2 in tahle 1D; 

Thus either a VERIFY instruction is stored, or an 

ar2 instruction or is restored; 

Then P is again increased, and a zero is stored 

on address P - 1 , while the centra-declaration 

made refers to the address P - 2 



end SOs 



switch sw • = 

S5aL1, S6aL1, S3bL1, S9aL1, S7aLl, 

S8aL2, S2aL1, S8dL0, S8bL2; 



switch SW : = 

S5aL3, S6aL5,S3bL2, S9aL2, S7aL2, 

S8aLl , S2aLl3, S8dL1 , S8bL1 j 



1.17.1 



comment 
Progressive after-actions of opening symbols 
(cf. table 1 B). 
S1L6j 



Regressive after-actions of opening symbols • 
S1L21 ; 



The entries correspond to the after-actions of 
( [ begin : = for go to if procedure switch ; 



1.18.1 

comment 
begin Compound statement entry. 

The constants 

LO, PO, QO, and QOO of tabel 1E 
are the initial values of the address variables, 
entry: P : = PO + 1 ; When, on S3bL8, the translation finishes, the + + 

first word of the object programme is inserted on 
address PO; 
T1: = QOO-2xh; 



q. 


• — 


QO; T i 


T2 


• - 


-- QOO j 


SO 


• - 


= LOj 


s 


» — 


1 + SO; 


St 


[SO 


- 1] : 


£0 


to 


S6al1 1 ; 



= 0; 



Then Saccent : = 8191» 

st[SO]: = g : = mark : = 0. 

As the opening symbol begin occurs in front 

of any text, input goea to compound S3. 

Procedure SOh cannot do any harm, for 

st[S - 2] = differs from the internal value 322 

of begin. 



end entry; 



"begin 



S1L1: SOa; 



S1L2:- if Saccent = S then go to SlLUi 



if g < then g : = 0; 



' if .e = and g = then go to 
S1L3; 

if f / 32 x 5 + 2f26 x97 
then go to SUA; 
SlL2a: "wrong; 

S1L3 i. if a < 128 then 
SlL3a: wrong; 



i£ f = 32 x 3 + 2t26 
to input; 



x 72 



1.19.1 

comment 

Compound statement S1 . 

After reading a delimiter f which is either an 

operator (table 1A) or a separation or. closing 

symbol (table 13)*, 

procedure input goes to here; 

Then c = st[S - 3] » .d = st[S - 2] , e = st[S - i], 

a = 32 x rank r fl of delimiter d, 

b = 32 x rank r f of delimiter f; 

cf. : S3aLh and S5aL5. Then the identifier or constant 

preceding delimiter f in the text need not be 

examined; 

Then identifier st[s] = e - 2r represents an array 

(cf. Sijl.22). As this significance of the identifier is 

nonsens here, it must be non-local, and another 

local declaration of the identifier may be expected 

later. 

Only- exception: identifier is actual parameter, 

representing array. Then g : = does no harm; 

Then delimiter f is preceded in the text by. the 

O-identifier (there is no identifier and no constant); 



Operator not is preceded by an identifier or constant. 
S1L2; 

Then an identifier or constant has been omitted behind 

the arithmetic operator d; 

for skipping + in a = + b etc • ; 

x 



if a = 322 then go to S1L21 ; 

if f = 32 x 5 +2*26 x 97 
then go to SILL; 
if f / 32 x 3 + 2t26 x 7U then 
S1L3: wrong; 

f : =32 x 3 + 2t26 x 96; 



SlUj.: if b < a then go to S1L26; 



S1L5: if Saccent = S then go to S1L21 ; 



S1L6: i£ a = 320 then ^otosw [d-319]; 
S1L7: if. Saccent + 2 < S then SOd; 

S1L8: a : = d or 2t23 x 5; 



S1L9: d : = d - a + g; 

SiLlO:if Saccent + 2 = S then go to 

S1L11; 

g : = a; 

a : = e; e : = c; c : = a; 



1*19.2 
• comment 
for a dummy statement. Then the after-action of d 
with f = semi-colon or end is considered to "be regressive; 
for operator not ; 



Then an identifier or constant has "been omitted; 

In a = - b etc. - is treated this way. 

S1L2; 

Then reading continues and d is a regressive operator or 

opening symbol. 

Otherwise reading is interrupted: ; 

Then d is either a regressive operator, or an opening 

symbol which is regressive with respect to the after-action 

with f (cfi S5aL5 and S3aLk). 

In general, however, an operator or opening symbol d 

which is translated first after interrupting the 

reading, is progressive: ; 

for progressive after-actions of opening symbols; 

Then Object programme must. be provided with storing and 

extracting a partial result; 

Then a is either = or > 

a = OOOOOOiOl 0. . . and c a programme const, whose 

representation is indicated by the bit t. For g and e 

it is analogous(cf, S1L26 and S1L29); 

which is thus associated to e instead of c; 

Otherwise object programme must be equipped with 

filling the accumulator:; 

c and e interchange their values; 



1-19.3 

comment 
SOk; e : = c; Thus previous value of e Is restored. 

S1L10, S1L25; 
S1 L1 1 : if d or 2t23 / then £0 to Then Instruction d is ready and e Is a programme 

S1L15; constant to he used hy ins tr. d; x 

S1L12: if e > then go to S1L1U; Then e is the internal equivalent of either a simple 

variable or formal parameter. 

Otherwise e - 2^ is an identifier (cf. S4L22) which, 
in this position, can only he the name of a function 
having no parameters: ; 
if d / 32 x 3 + 2t26 x 96 and Otherwise d is an operator not or - such as x 
d jt 32 x 5 + 2t26 x 97 does not, in operation time, require to store 

then go to S1L13; a previous partial result: ; x 

SOp; ■■- Compare S1L13; 

go to S1L22; S1L12; 

S1L13: SO (partres); for storing previous partial result; 

32 

SOp j Thus a contra-declaration of identifier c - 2 

is made according to p = 000011111 which constant 
is listed in tahle 2A together with an explanation; 

e : = 2t23 x 507; For, in operation time, instruction d must x 

extract a partial result; 

SOr; Thus the gression bit dg is inverted. When, for 

example, function - p x q.+ . .. is translated, then 

operator - is regressive according to the general 

rule. Thus p x q. is translated first. Before, in 

operation time, function may he invoked, the object 

programme must at first store the partial result accu 

which is p x q. Therefore the minus instruction is to 

be translated in the form 

accu : = accu - (partial result) 

which is progressive instead of regressive. 



1.19-4 



comment 



S1L12; 



S1L14: e : = e - 2t26 x 63 + 
(d or 2t26 x 127); 
go to S1L16; 

S1L15: SO(d); 

S1L16: SO(e); 



S1L17: S accent : = S : = S - 2; 

S1L18: SOa; 

S1L19: if Id < a then go to S3L5; 



S1L21 ; if a = 320 then go to 
SW[d - 319]; 

S1L22: if d / 32 x 5 + 2t26 x 97 
then go to S1L23; 
e : = take inversion; 



go to S1L16; 
S1L23: if d V 32 x 3 + 2t26 x 96 
then go to S1L24; 
e : = take complement j 



go to S1L16; 



S1L11; 

S1L1U, S1L22, S1L23; 

Thus instruction or programme constant is stored 

in the object programme, 

33bL1k, j; S7aLl8, S8al3, S$aL2; 

Operator st[S] has "been translated and will he 

overwritten now; 

cf. S.1L1; 

Then translator again proceeds to reading* 

Otherwise translation continues (cf.SlLl+). 

S1L5, S1L3; 

for regressive after-actions of opening symbols 

(cf. S.1L6). 

S1L12; 



That code instruction of table 1E is the regressive 

version, and extract inversion of table 1C is the 

progressive version of operator not; 

S1L22; 

That code instruction of table 1E is the regressive x 

version, and extract complement of table 1C which 

has been introduced at the end of S1L3 is the 

progressive version of operator -, when - is preceded 

by the O-identifier; 
S1L23; 



S1L2U: 


SOr; 






e : = 


c; 


S1L25: 


go to 


B1L11; 


S1L26: 


SOc (f + g); 



S1L27: mark : = 0; 



S1L28: st [S - 1] : = 0; 



S1L29: g : = 0; 

go to input; 



1*19.5 

comment 
That procedure sets the gression "bit dg which is 
still =0, to 1, for operator d is regressive; 
If that is a programme constant, the indication 
of its representation is already recorded in d; . 
S1LU; 

with either g = 0, or g = OOOOOOtOl 0...0, the bit 
t indicating the representation of e which is a 
programme constant (cf. S1L29)# 

if, at the next action of this compound S1 , operator 
st [ S - 2] just listed in L is found to be progressive, 
the g-part is removed from it and replaced by the next 
value of g, on S1L9. 
S3L5, S5aL6, S6aLH; 
cf. table hC. 

S3aLh, S3cL6, S5L9, S6aL31 , S6aL6l , S8L2, S8dL8, S9Lh; 
If the translator proceeds to ShL23 or ShaL2, this 
is replaced by something else. 
Sh£21 ; 
JLtftcr rumding a Constant*,- procedure input goes to 

compound Sha with g = OOOOOOtOl 0...0 in which bit 
t indicates the representation of the constant f read. 
On ShL22, occasionally an ar1 instruction iB assigned 
to variable g as value; 



end Si; 



1.20.1 
comment 
be^in Compound statement S2. 

Pre-action of the opening symbol if; 
S2L1: f : = 326 Cf. if in tabic 1B; 

SOh; Cf.S3L2; 

S2L2: S0c(mark)j 

£0 to S3L3; Then, for translating an if-expression, there is 

listed in L: 

st[s - h] = mark (cf. table kC) , 
st[S - 3] = 0, 

from 1st after-action: minus address P* 
where to store a test instruction, 
from 2nd after-action: plus address P" 
where to store a pass instruction. 
st [S - 2] = value 3.26 of if, 
st [S - 1] = 0. 

Signal mark is set. to 0. The listed value, 
st [S - U], is re-introduced on the 1st and 2nd 
af ter-acti ons of i f ; 
end S2; 



1-21.1 



begin 



S2aLl : d : = st [S - k]; 

S2aL2: if cxd/O then go to S2ali+; 



S2aL3: SOk; 

go to S2aL20; 
S2aLi+: if d = 2 then go to S2aLl7; 



S2aL5: if g / then £0 to S2aLl1 ; 



S2aL6: if e < then go to S2aL9; 



comment 
Compound statement S2a. 
After-actions of the opening symbol if. 
Delimiter f is either then or else or the 
closing symbol of a conditional expression or 
- statement E. OnSlLl, the value or -P 1 or 
+P", mentioned in compound S2, has already been 
assigned to variable c. 
Progressive: 

The expression, preceding delimiter f, is a 
single identifier or constant i 
S1L6; 

being the value of mark retained by compound 
statement S2; 

Then the 2nd or 3rd after-action of if is 
beginning, f being ' else or the closing symbol, 
and, in addition, d is =1 or 2. 
Then i may be a label. 
Otherwise i is no label: ; 

Thus object programme is equipped with filling 
the phantom accumulator; 
S2aL2 j 

Then i is a label (or a formal parameter that, 
may only represent a label), and E is a 
designational expression. 

Otherwise expression E is an actual parameter; 
Then i is the constant e. 

Otherwise i is an identifier : ; 

"52 
Then i = e — 2r is found to be no simple 

variable and no formal parameter (cf.SkL22). 



1,21.2 



comment 



Identifier i is found to be a simple variable 

or formal parameter with the internal equivalent e : ; 

S2aL7: if e - 2t23 x 505 > Then i is a simple variable, and an extract-normally 
then go to S2aLl8; instruction is added to the object programme. 

Otherwise i is a formal parameter:; 

S2aL8: g : = e + 2123 + 2t26x(H0-63);which is a verify instruction (cf. table 1D). x 

In operation time, the bit g g = 1 of instruction g 
makes the test on S10L13 fail, and the interpreter 
proceeds to S10L1U0. There the instruction X whose 
formal parameter represents the actual parameter in 
which expression E is contained, is examined: If X is 
no jump instruction, then the formal parameter i to 
which the verify instruction refers, cannot represent 
a label so that the verify instruction is to be 
interpreted as the extract normally instruction referring 
to i. 
S2aL6; 

S2aL9: S0(g) ; S2aLl8; 

S2aLl0:g : = st [S] + 2132; being the contra-identif ier of i x 

(cf. Sl]L23); 
e : = P + 2123 x 511 - 1; x 

go to S2aLl2; The contra-declaration g, . e to be stored now is made 

according to p = 111111111 which constant is listed in 
table 2A together with an explanation. It refers to the 
address x = P - 1, where the object programme contains 
either the mentioned verify or extract normally 
instruction or 0. 
S2aL5; 



1.21.3 



S2aL11: SOk; 



if e < 2L 2i2k £ e 
then jgo to S2aL20j 
g : = e + 2t24x63 + 2t32; 
e : = P + 2t3l x 3 - 2; 



S2aH2: SOe(g); 

£0 to S2aL20j 



S2aLl3? d : = st[S - h]; 
S2aLll+: if c x d = then go to 
S2aL2G; 



S2aL15: P : = P - 1; 



comment 
Then st[P - 2] is the extract normally instr. 
which, in operation time, extracts the programme 
constant st [P - 1] = i; 

Then constant i is not suitable for "being a label. 
Constant i may occur as a label:; 

which is the contra-identifier of a constant label i; 
The contra-de clara t ion g, e to be stored now is 
made according to p = 1 100000000 which constant is 
listed in table 2A together with an explanation. It 
refers to the address x = P - 2, where the object 
programme contains the extract normally instruction. The 
internal equivalent e is negative. 
S2aLlO; 

thus the contra-declaration is stored now; 

Regressive : 

The expression I preceding delimiter f is non- trivial 

(no identifier and no constant), 

S1L21 ; 

cf. S2aLl; 

Then expression I cannot be a switch designator 

(cf .S2aL2) and has already been translated. 

Otherwise I = i [E] is either a subcripted variable 

or a switch designator. The subcript E has been 

translated -in compound S6a; 

Then st[P ] is either the ar2 instruction referring to 

i, in which case i has been found to be either an 

array identifier or a formal parameter, or 

(cf, S6aL6l); 



1.21.1+ 



S2aLl6: if d = 1 then go to 
S2aLl9; 



S2aLl 7 : 

S2aLl8: 

S2aLl 9 : 
S2aL20 : 

S2aL21 : 
S2aL22 : 
S2aL23 : 

S2aL2l+: 
S2aL25 : 
S2aL26 : 

S2aL27: 
S2aL28 : 
S2aL29 : 
S2aL30 : 

S2aL3l : 
S2aL32 : 



SOI; 

go to S2aL20; 

SOk; 

go to S2aLlO; 

SOs; 

mark : = d; 



comment 
Then i [E] is contained in an actual parameter, 
i [B] is a switch designator thus i a switch 
identifier : 

S2ali+; 

Label or switch identifier is contra-declared; 

S2al,7; 

S2aLl6; 

S2aL3, S2aLl-|, S2aLl2, S2aLll+, S2aLl7; 

At the after-actions with f = then or else signal 

mark is restored to the value retained "by compound 



S2; 



e : = P; 

i£ c < then go to S2aL28; for the 2nd after-action; 

if c / then go to S2aL31 ; for the 3rd after-action. 

1st after-action:; 
e : = - e; S2aL30; 

st [S - 3] : = e; 
S0(0); 



£o to S1L28; 



At the next after-action, this is replaced "by a 

test or pass instruction; 

S2aL22 ; 

if f / 326 then a := e - 1 ; Cf. else in table 1B; 
st[-c]: =e+1+2t23+2t26x111; Cf.test in table 1D; 
if f / 326 then go to S2aL32;Then the separation symbol else is not present; 

else is present. 

S2aL23; 

Cf.pass in table 1D. 

S2aL30; 
Thus, at the last after-action of if, mark is set 



go to S2aL25; 

st[c]:= e+2t23+2t 26x121; 



S : = S - 2; 
go to S8aL3 

end S2a; 



to 



1.22.1 



S3L1: f : =322; 

D : = 2t23 k 1023 
S3L2: SOh; 



S3L3: st[S - 1] : = Oj 
S3L4: Saccent ": = 8191; 
S3L5: SOc(f); 

£o to S1L27; 



comment- 
Compound statement s3» 
Pre-action of the opening symbol begin ; 
Cf. begin iii table 1B; 
Cf. D in table 2; 

Perhaps opening symbol begin immediately follows a 
block head. Then procedure SOh completes the dynamic 
introduction of the block* 
S2L2, S6L9; 
S7L2, S9L10; 
S1L19, S5LI+, S6L19; 

After pre-action of opening symbol, reading 
continues. 

For translating a compound statement there is listed 
in L: 

st[S - 3] = 0, 

st[S - 2] = value 322 of begin . 
st[S - 1] = 



end S3; 



1.23.1 



"begin 



S3aL1 :D : = D or f j 

if (D or 2t28) = then go to 

S3aLi+; 
S3aL2r SOaj 

if d^ 322 then 
S3aL2a: wrong; 
S3aL3: if c ^ then go to S3ali+ 



at [8 - 1] : = <3J 
8.0c (P); 
S0(0); 

st[S - 1] : = T; 
S0c(322); 
S3alA: Saccent : = 8; 
go to S1L28; 



comment 
Compound statement S3a. 

After reading a declarator or specif icator (table 2), 
procedure input goes to here; 

Thus declaration is replaced by its logical product 
with f ; 
Then f is a specif icator or specifying declarator; x 

for extracting opening symbol from list L; 

Then declarator occurs in the wrong place; 
Then block has already been prepared in L by a 
previous declarator. 
First declarator of a block:; 



S3aL1, S3aL3, S3bL2, S1+L30, S5L2; 

For translating a block there has been listed in L: 

st[S - 7] = 0, which may be replaced through 

procedure SOi by ah address to inform procedure SOh, 

st[S -5] = q f , being the highest address occupied by 

a local variable, 

st[S - h] = address P* where the block has its object 

programme beginning, 

st[S - 3 ] = T 1 , being the highest address in the list I, 

occupied by any identifier declared in the block, 

st [S - 2 ] = value 322 of opening symbol begin, 

st[S - 1 ] = 



end S3a; 



• £.*+• I 



"begin 



S3bLl: SOh j 



SOn(2t23 x 31); 



S3bL2: if f / 330 then go to S3bL3; 
If D > then £0 to S3aLh; 

S3bL2a: wrong; 

S3T3L3: T1: = T; 

S3bl4: D : = 2t23 x 1023; 

S3bL5 : if f = 332 then go to S6aLi 1 ; 

if f ^ 322 then 
S3dL5$: wrong; 



S3bL6: J£ c / then go to S3"bL9; 



comment 
Compound statement S3b 
■After-actions of opening symbol begin 
Delimiter f last read is either comma or semi-colon 
or end. 
Progressive : 
SlL6j 

A block head may be followed by a procedure statement 
consisting of a single procedure identifier (cf.S3L2); 
A contra-declaration of the procedure identifier is > 
made according to p = 000011111 which constant is 
listed in table 2a together with an explanat ion. 
Regressive: 
S1L21; 

Theh : f is no comma (cf. table IB); 
Then comma occurs in list of identifiers to be 
declared; 

Comma occurs in a block as separator of statements. 
S3bL2; 

This bound is observed by procedure SOf ; 
as happens also on S3L1 ; 

for "reading next declaration or statement of compound 
statement or block, which is subsequent to semi-colon f; 

Then a declaration or statement of a compound statement 

or block is followed by a delimiter, differing from 

semi-colon and end. 

After-action of begin with end: 

On S1L1, st[S - 3], as left by either compound S3 or 

S3a, has been assigned to variable c; 

Then a block is ./dosing. 

A compound statement is closing; 



I •<£<+•£ 



comment " 
e : = Q00-2xh; which Is the highest value T can have; 

if S = SO + 3 then go. to. S3bLl3;Then the text is a compound statement instead of 

a block. Labels may occur in it, ' 

S3bLll4-; 
S3bL7: if S > SO + 3 then go to input; input, in this comment situation, looks for the next 

delimiter f which is equal to either semi-colon or 

end or else , then going with f to S1L17» Then the 

delimiter preceding b egin in the list L, is going to 

after-act with f . 

The whole text has been read:; 

Thus last word of object programme is 0, but may be a 

jump to any stop of the machine; 
= P; Thus 1st word of object programme is address where 

working space begins; 

Object programme is ready! 

S3bL6; 

Now st[S - k] is the delimiter preceding begin in the 



S3bL8: S0(0); 
st[P0] 



S3bL8a swrong; 

S3bL9 : 
S3bLl0: 
S3bLl 1 : S0(c+R+2t23+-2t 26x1 19); 



S : = S - 2; SOa; 

S : = S - 2;. 

st[d] : = q+R*2t 23+21-26x1 27; 



S3bL12: q 



= c: 



S3bL13: 
S3bLl^: 



a 



= T; 
if a / e then go to S3bLl5; 



list L, For c = q* etc. cf. compound S3a; 

Thus, in object programme of block, an adjust x 

instruction is the first word; 

Thus in objeot programme of block, a restore instruction x 

(cf .table 1D)is the last word. 

S8dL7j 

Thus value of q, which was present when first declarator 

of block was read, is restored. 

S3bL6; 

On S3bL3, the value of T was also assigned to T1 . 

S3bH 5 , S3bLi 8 , S3bL20 , S3bL3li-; 

Then the cOntra-identifier occurring next on the addresses 
a+2, a+h, . .,e is looked up. 



1 .24.3 



T1 : = T : = ej 



T2 : = QOO; 

if si [8 - 3] <0 then go to 

S3DL7; 



f : = 332; 
£o to 81 Li 7; 



S3bLl 5 : a : = a + 2 ; 

f : = st [a] + 2t32; 

if f < then go to S3bLi4; 
S3hLl6: T2 : = e; SOf; 



"b : = st[a - 1 ]; 



S3"bLl 7 : if d > then go to S3bL21 ; 



S3bLl8: e : = T2; 



comment 
All contra-identif iers have "been considered: ; 
Then in the list I t is the highest address, 
occupied by an identifier which is local to the 
translated "block; 
Cf . table 1E; 

Then it is a "block that closes, 
st [S - 3] having "been made negative "by procedure 
SOh after reading the "block head. 
A procedure is closing:; 

Thus semi-colon f of compound S8d is restored; 
as ultimately happens too with a block 
(cf. S3"bL7). 
S3"bLli+; 

Then st [a] is a normal (positive) identifier, 
st [a] is a contra-identif ier : ; 

Then identifier f corresponding to contra- 
identif ier st [a] is looked for on the addresses 
T+2, T+h, ...T2; 

"being the internal equivalent of the contra- 
identif ier; 

Then procedure SOf has found identifier f on 
address c, d = st[c - l] "being the internal 
equivalent (cf. table 2) of f. Then contra-identif ier 
st [a] can be satisfied. 

Identifier f has not been found so that the 
contra-identif ier remains unsatisfied:; 
Thus the value of e as it was on S3bLi6, is 
restored. 



1.2*4-.*; 



if S > 
S3bLi9; 



SO + 3 then go to 



if b < then go to S3bLll+; 



S3bLl8a: wrong; 

S3bLl 9 : st[ a - 1 ] : = st [ e - 1 ] ; 
st [a] : = st [e] ; 
st [e - 1 ] : = b; 
st [e] : = f + 2t32; 
a : = a - 2; 
e : = e - 2; 

S3"bL20: go to S3bLlk; 
S3bL21 : T1 : = c; 
S3bL22: e : = dor (2t23 - 1); 
c : = b or 8191 : 



b : = b - c; 



'■ comment 
Then the translator does hot yet see the end of 
the text, thus may regard the unsatisfied contra- 
identif ier as to Tbe non-local to the closing block 
or procedure. 

Otherwise the text, either a block or a compound 
statement, is closing:; 

Then f - 2 x 63 is a programme constant, that, 
because of its position within an actual parameter, 
was expected to be perhaps a reference to a label, 
but is found now to be not; 

Any identifier of the text has not been defined. 
S3bLl8; 



Thus 2 declarations are interchanged; 5 

The non-satisfied contra-identifier is considered to 
be no longer local. Thus e is again the. highest 
address where a local identifier is listed in I; 
S3bLl7; 

which is used on S3bL33; 

13 

being address + 2 -x rank; > 

being the address where either an instruction or the 

main word of a parameter key is to be inserted. 

For internal equivalent b cf. table 2A; 

Then b = indicates, that the contra-declaration 

refers to the key of an actual parameter that is a single 

identifier. 

There must be formed either d = main word, and 



1.24.5 



comment 
e = by-word of the key (cf. table 3) of an actual 
parameter that is an identifier or a constant, 
or d = instruction; 

for a constant parameter or. an instruction. 
Parameter is an identifier:; 
if 2 x d < then go to S3bI29; Then parameter represents either a formal parameter 

or a simple variable (cf. table 2); 
Then parameter represents an array; 
Then parameter represents a label or switch. 



S3bL23: if b / then go to S3bL35; 
S3bL2h: 



S3bL25 : if k x d < then .go to S3bL28; 
S3bL26: if 8 x d < then .go to S3bL30; 



S3bL27: d : = e or (2t23 - 2tl3); 

e : = e -*• 1 ■- d; 

d : = d + 2t23 x 57; 
go to S3bL3l ; 
S3bL28: e : = g - e - 2t23 - 2t26x126; 
go to S3bL3l ; 



S3bL29: if (d or 2t23) = then 
d : = e + '2t26 x 3; 

S3bL30: e : =0; 



S3bL3l : st[c - 1] : = e; 



Parameter represents a procedure:; • 

13 
being 2 x rank of procedure identifier; x 

being 1 + address where procedure has its object 

programme beginning; 

S3bL25; 

Cf, an in table 1D; 

As procedure SOf assigned an an instruction 

(cf. S6L8) to variable g as value, e ■ - is a 

difference of addresses now, 

S3bL2h; - 

Then actual parameter represents a formal x 

parameter 

S3bL26; 

Thus, for. a parameter representing a simple variable 

or formal parameter or label or switch, the by-word 

is cleared, which is facultative. 

S3bL27, S3bL28; 

Thus by-word is stored. 

The key main word of a parameter, representing a simple 



1 .<iq..O 



S5bL32: st [c] : = d; 



comment 
variable or array or label or switch i, is equal to 
the internal equivalent of i. 

S3DLZ+7; 

Thus key main word or instruction is stored. 

S3bLU2, S3bL2+3; 
Cf. S3bL21; 

Any identifier has "been defined twice in the same 

"block or , or in the same procedure outside the 

blocks contained in it; 

Thus the value of T1. as it was on S3bLlh, is 

restored; 

Ditto ; 

Satisfaction of contra-identif ier at [a] is ready. 

S3bL23 ; 



Then g is the address taken from the declaration. 
Now the kind of the object referred to by the contra- 
declaration (cf. table 2A) is examined. It must be in 
accordance with that of the object referred to by the 
corresponding declaration (cf. table 2); 
Then a constant occurring in an actual parameter (or 
being an actual parameter) is found to be used as a label 
too - the declaration, of which having been found; 

S3bL37: if 2 x b < then .go .to S3bLL0; Then st [c] is a verify, or extract normally instruction 

or 0, occurring in. the object programme of an actual 
parameter (cf. S2aL6); 

S3bL38: if h x b < then £0 to S3"bU|2; Then st [c] is a VERIFY" or ar2 instruction or 0, 

occurring in the object programme of an actual 
parameter (cf. S2aLi5); 



S3bL33: 


SOf; 






if d : 


> then 


S3bL33a 


: wrong ; 


i 


S3bL3U: 


T1 : = 


■- T; 




e : - = 


T2; 




go to 


'S3bLlh; 


S3bL35 : 


d : = 


d - e; 




g : = 


e or 8191; 



S3bL36: if b < then go to S3bLl+8; 



1.24.7 
comment 
S3bL39: if 8 x b < then go t o S3bLU5;Then a Jump instruction is to be inserted in the 

object programme of a switch or jgo to statement, 
identifier f having been contra-declared on S8aL2 
for example. 

In the object programme of a function designator or 
procedure statement, the 1st word must be adjusted, 
identifier f having been contra-declared on 
S5aL6 or S1L13 or S3bLl for example; 
Then identifier f may only have the significance 
of a procedure identifier. x 

Identifier f has been found in the significance of 
a formal parameter : ; 

Cf . extract normally and prostat in tables 1 C - x 
and 1 D; 
S3bL40; 



S3bLhO: if d/ 2t26 x 63 then £0 to 
S3bU+i ; 



g : = if 16 x b < then 
2t26 x 120 else 2t26 x 98; 
go to S3bLi+7; 

S3bL4l: if d > 2t29 then 

S3bL4l a :wrong ; 



x 



A procedure statement or function designator 
invokes nonsense; 



if 16 x b > then go t o 
S3bIiU4-; 

if st[ g + 1 ] > then go to 
S3bLl44b; 
S3bU+1 b : wrong ; 



S3bLU2: if d = 2t26 x 63 then £0 to 
S3bL33; 
if 2 x d < then 



A function designator or procedure statement having 

actual parameters, invokes a function or procedure 

having no formal parameters. 

S3bL38; 

Then identifier f is a formal parameter; 



1.2*4-. 8 



S3t>Ll+2a: wrong; 

if k x d < then go to 

S3"bL33; 

if 8 x d < then go to 
S3bU+6; 
S3bU|-2b: wrong; 



S3M43: if 2 x d < then go to 

S3bL33; 

if k x d < then 

S3bLU3a :wrong; 

if 8 x d < then go to 
S3DLU6; 



S3bLUU: if st[g + 1] > then 
S3bLiU4-a : wrong; 



S3bLl44.b : e : = JO; 

££ to S3bL47; 



comment 
A subcript has "been attached to a simple variable; 
Then f is an array identifier; 

Then st [c] is replaced by a jump instruction; 

A subscript has been attached to a procedure 

identifier. 

S3bL37; 

Then identifier f is either a simple variable 

or a formal parameter and st[c] is not changed; 

An array identifier occurring within an expression 
is not followed "by a subscript; 
Then f is a switch identifier or a label; 
Identifier f is a function or procedure name. 
The function designator or procedure statement 
has no actual parameters: 

S3bLM; 

A function designator or procedure statement having 
no actual parameters, invokes a function or procedure 
having formal parameters' 

S3bL*4>1; 

Cf. table 1E; 

On address c , a code instruction is stored which, 

in operation time, jumps to address g where the 

object programme of the function or procedure 

begins. 

S3bL39; 



1.24.9 



S3blA5: if b = d then go to S3bli*6; 

g : = 2126 x 122; 

if d = 2t26 x 63 then go to 

S3bl47; 
S3bli+5a: wrong; 



S3bL46: g : = 2f23 + 2t26 x 122; 

S3bU|-7: d : = e + g; 
go to S3-DL32 ; 

S3bLl+8: g : = if 2 x b < 

then 2t23 + 2t26 x 109 
else 2t23 x 89; 
go to S3bUi7 
end S3b; 



comment 
Then f is a label or switch identifier. 
Identifier f is a formal parameter:; 
Cf. jump in table 1D; 

Then f is indeed a formal parameter; 

nonsense, referred to in a designational 

expression. 

S3bL42, S3bl43; 

Cf.jump in table 1D. 

S3bli+Q, S3bLl|l!-, S3bL45, S3bLij.8; 

for storing instruction or key main word. 
S3bL36; 

Cf ■* Verify in table iDand key main word of 
constant parameter in table 3; 



x 



1.25.1 



"begin 

S3cL1 : if (D or 2t2U) / then go to 
S3cL2 ; 



f : = 331; 

go to S1L1 ; 
S3cL2: SOh; 
S3cL3: if g > then go to S3cL7; 

if e = then 
S3 cL3a: wrong; 
S3cLU: f : = st [S ]; ' 

S3cL5: e : = P + R + 2t23 x 127; 

SOe(f); 
S3cL6: SO (q + R + 2 123 + 2t26x119); 

go to S1L28; 
S3cL7: if e < or 2t2U < = e then 
S3cL7a : wrong; 
S3cL8: f : = e + 2t2h x 63; 

go to S3cL5 

end S3c; 



comment 
Compound statement S3c. 
Colon goes to here from input; 

Then colon declares the label preceding it 

in the text. 

Otherwise pattern D contains the type 

indication of an array declaration, colon being the 

separation symbol between a lower and upper bound:; 

Cf. colon in table 1B; 

S3cL1 ; 

Cf.S3L2; 

Then label is ah integer 

(compare procedure SOI) ; 

Label has been omitted; 

Cf. SijL23. 

S3cL8; 

Cf. label in table 2; 

Thus declaration of label is listed; 

Cf. restore in table 1D; 

S3cL3; 

Cf. table 5; 

being the internal value of constant label f ; 



1.26.1 
comment 
"begin Compound statement Sij.. 

Af te;tv reading an identifier f, procedure input 
goes to here. 
SkLl: if D < then £0 to SUL22; Then identifier f must he looked for in the 

list I. 

Identifier f must he declared or specified 
(cf. table 2):; 
S1+L2: if 2 x D < then go to SUL9; Then identifier f is declared a simple variable; 
SkL3: if k x D < then go to SUL11; array identifier; 
ShLk: if 8 x D < then go to ShL37; switch identifier; 

SUL5: if 16 x D < then go to SL^L2i{.; procedure identifier; x 

SkL6; If (D or 2t23)./ Thon;f, is : . either a value parameter, or is to be specified. 

then go to ShL32; Identifier f is a formal parameter to be listed in I:; 
SkL7: P : = P - 1; 
e : = st[P]; 

SO(D); SO(e); Then st[P - 2] = D, and st[P — 1] = -2 13 x rank of 

procedure (cf. SUL28); 
SkL8: e : = q. + 2t26 x 63; x 

q. : = q - 2; 

go to ShLi9; Relative addresses q. + 3 and q + 2 are reserved for 

the main - and by-word of the parameter key. 
si ^2; 
SUL9: if 8 x D < then go to SUL18; Then variable is not own . 

Variable is own ; ; 
ShLlO: SOi; Cf. ShL2h; 

.go to ShLi5; shL3; . 

SkLH : o : = st [S - 1] ; 

Si|L12: if 8 xD < then go to ShLl6; Then array is not own. 

Array is own: ; 



SUL13: i£ c / then £0 to SI4L15; 

S1+L1U: SOi; 

st[S - 1] : = P; 



S1+L15: e : = P + D + 2t29| 



SO(O); 

go to SLL20; 
SI4LI6: if c/ then £0 to SkLl8; 

Sl»Iil7: SOh; 



st[S - 1]: = q; 



ShLl8: e : = q + D; q 



S1|L19: e : = e + Rj 



q - 1 ; 



1.26.2 
comment 
Then f is not the 1st identifier of the list. 
1st identifier of the list:;" 
Cf. SkL2k; 

Then st [S -. 1 ] is no longer = 0. 

Compound S6a will insert pre-value [a] of a = 1st array 
of declaration (cf . explanation) 
on address P# 
SUL10, Si+L13; 

Then the hit e, of the internal equivalent • = 1 , x 
as it is in the case of a variable or array being 
not own ; 

A place for the simple variable or the pre-value of 
the array is reserved in the object programme; 
SkLl2; 

Then f is not the first identifier of the list, 
1st identifier of the list:; 

Thus the space of own variables and - arrays and of 
the object programmes of procedures and switches, 
which eventually precede the non-own array declaration, 
is bridged by inserting a pass instruction in the 
dynamic introduction of the block; 
The relative address q is reserved for the 
pre-value [a] (cf. SI4L14), that is an internal 
(non-declared) variable of the object programme. 
ShL9, SUL16; 

Thus internal equivalent e of identifier f 
contains the address reserved. 
ShL8; 

cf, SkL26. 
SUL15; 



1.26.3 



Si4L20: T1 : = T; 

T2 : = st[S - 3] J 

SOe(f); 

SOf; 

if d> then go to S3bL33a; 



S1+L21: T2 : = QOO; 

£o to S1L29; 
SttL22: SOf; 

Si|L23: st[S - 1] : = e; st[S]: = f; 
go to input; 



SI4L2U: SOi; 



SI4L25: «.:.«* P + H + D; 



8I4L26: R : = R + 2t13; 



comment 

That is the address T 1 mentioned in compound S3a; 
Thus declaration is listed in I; 

Then identifier f is defined twice in the same 

■block or procedure heading. 

Slj£36;. 

Cf. table 1E; 

SI4L1'; 

Identifier f is looked for on addresses T1 : + 2, 

T1 + h, ... T2, as explained in SOf; 

Because of the possible necessity to make a 
contra-declaration, identifier f remains available 
on address S, until the next delimiter is stored 
there in the list L. 

Si*15; 

As the object programme of the procedure which is 

going to be translated now, is to be passed by the 

dynamic introduction of the block, a location is 

reserved for the pass instruction needed, unless this 

reservation has already been made earlier on 

SZjIilO, SiililU, Sl|i2l+ or S2+L37; 

Thus the address P where the procedure has its 

object programme beginning, is contained in the 

internal equivalent e of procedure identifier f ; 

R is cleared in compound entry, and decreased on 

—13 
S8dL3. r = 2 x R is the rank of the procedure, 

r - 1 is the rank of the procedure identifier; 



1.26.4 



SUL27 : SO(X) ; 
SkL28: SO(-R); 



SZ4L29: st[S - 1] : = q.; 

q : = QO - 1 ; 

a : = 327; 
SI+L30: SOc(P); 

st [S - 1] : = T; 

SOc(d); 

SOe(f); 
ShL31 : jgo to S3aLi+; 



ShL32: e : = P - st[S - k] ; 



T2 : = R + e + e; 



SOf ; 



comment 
Cf. table 1E; . 

The patterns of eventual formal parameters are 
inserted between instruction X and constant -R so 
that the latter must be shifted then (cf.ShL7); 
Cf. procedure in table 1B. 
S1+L3.9;. 



+ x 



Cf. ShL20; 

For translating a procedure, there has been listed 
in L: . 

st[S - 5-] = value g' of q which was present when 
declarator procedure was read, 

st[S - h] = 2 + address P 1 where instruction X has 
been stored, 

st[S - 3] = address T 1 where procedure identifier f 
has been listed in I, 

st[S - 2] = value 327 of opening symbol p rocedure , 
Bt[S - 1] =0. 

to be compared with the information listed by- 
compound S3a. 
ShL6; 

being the number of the formal parameters 
(cf.P* in SkL3l); 

On that address the 1st parameter identifier is 
listed in I; 
Thus identifier f is looked up in parameter listj 



1.26.5 



If d < then 
SUL33: wrong; 

ShL3k: e: = P-l + (T- c}*2; 

ShL35: st[e] : = st[e] or Dj 
SUL3S: go to ShL2l; 
S14L37: SOi; 

SkL38: D : = 2t23 x 1023; 
5M : - T; 

0. : = q. - 1; 



S0m(0) 



SUL39: d : = 328; 

go to SI+L30; 



comment 

Then specified identifier does not occur in the 
parameter list of the procedure; 

On that address the pattern of the parameter to "be 
specified, is listed in the object programme; 

Sklh; 

Cf . SkL2k; 

Cf . S3"bL 3 and k» The expressions of the switch 
list must "be translated now; 
This is compensated by S8bL9. 

As there is supposed that the declarations of all 
local variables and arrays are precedent to those of 
switches and procedures, q. + 1 id the lowest address, 
occupied by a local variable (namely the internal 
variable which is used by the adjust and restore 
instructions) the switch list may contain deliberate 
statements (jumping or not) as its elements; 
Within the list L, this will be preceded by the 
pass instructions leading to the object programmes 
of the switch list elements, until the list of 
these pass instructions can be stored in the object 
programme of the switch (cf. S8bL7) ; 

For translating a switch, there is to be listed now 

inl: 

st[S - k] - address where the switch list element to 

be read now has its object programme beginning, 



1.26.6 

comment 
st[S - 3] = address where switch identifier is 
listed in I, the internal equivalent "being stored 
in I on S8hLlO, 

st[S - 2] = value 328 of opening syitfbol switch . 
st[S - 1 ] = 
end Sk; 



1.27.1 



"begin 



SUaL1 j if D > then 
SUaLlaswrongj 

SkaL2: Bt[S - 1] : = t ; 
go to input j 

end Sha; 



comment 
Compound statement Si+a. 

After reading a constant f, input goes to here 
with f" arid g = 2 23 x OOOOOOtOl in which the hit 
t indicates the representation of f : t = 1 -+ f is 
real, -» integral or boolean; 



Then a constant occurs within a list of identifiers 
to he declared; 

The delimiter which is subsequent to the constant 
is read 



1 .28.1 



"begin 

S5L1 : SOh; 

if D < then go to S5L3; 



If d / 327 then 
S5Lla:wrong; 



S5L2: D : = 2t23 x 30; 
go to S3aLUj 



S5L3: if g > then 

S5L3a: wrong; 

S5Li+: if Saccent < S then SOd; 



S5L5: Saccent : = 8191 ; 
f : = 320; 
if e = then go to S3L5; 



S5L6: S0n(2t23 x 63); 



comment 
Compound statement S5. 
Pre-action of the opening symbol (; 
Cf. S3L2; 

Then either a function designator or a procedure 
statement or an expression enclosed within 
parentheses is going to "be translated, 
A formal parameter list is beginning. 
Procedure SOh has assigned the value of opening 
symbol procedure (cf. table 1B) to variable d; 

Then (occurs in an identifier list of a block 

head; 

S8dl8; 

Cf. table 2; 

The parentheses of a formal parameter part are not 

listed in L. 

S5L1 ; 

Then ( is preceded by a constant; 

Compare this with S1L7, where the operator st[S - 2] 

which is on the point of being translated, has 

already been listed in L; 

as happens too on S6aLl 1 ; 

Cf. ( in table 1B; 

Then an expression enclosed within parentheses is 

beginning in the text. 

function designator or procedure statement:; 

Thus identifier f is contra-declared according 

to p = 0001 11111, which constant is listed in 

table 2A together with an explanation; 



1.28.2 



S5L7: SOm(O); SOm(O); 



S5L8: SOc(P); 

SO(O); 

SOc(f); 
S5L9: B»t'[S - 3] ; = ' P; 

mark : = 1 j 
£0 to S1L28; 



comment 
The keys of the actual parameters will be listed 
in L, until all actual parameters will have "been 
translated (cf. S5aLi7); 



S5aLl5; 

Cf.' table hCj 

For translating a function designator or procedure 

statement, having actual parameters, 

"there has been listed in L: 

st[S ' — 'ii'J = address where to store the key address of 

the function designator or procedure statement 

(cf, S5aL23). 

st[S - 3] = address where the object programme (it 

may be empty) of the next actual parameter begins, 

st[S - 2] = value 320 of (, 

st[S - 1] = 



end S5; 



1.29.1 



comment 
begin Compound statement S5a. 

After-actions of the opening symbol (. 

Delimiter f read last is either a comma or ). 

On S1L1 the value of st [S - 3] > as left by compound 

S5, has already been assigned to variable c. 

Progressive : 

Delimiter f is preceded in the text by p which 

is either a string or a trivial expression (identifier 

or constant) . 
' S1L6; 

S5aL1 : if c / then go to S5aL7; Then p is an actual parameter. 

p, though enclosed within parentheses, is no 

parameter ; 
S5aL2: SOk; Thus the object programme is equipped with filling the 

accumulator*.- 

Regressive: 

Delimiter f is preceded in the text by a non- trivial 

expression p. 

S1L21; 
S5aL3: if c / then go to S5aL2h; Then p is an actual parameter. 

p is no actual parameter:; 
if f = 321 then go to S5aL5j Then expression p is enclosed within brackets 

(cf. S6L12). 

S5aL23; 
S5aL2+: iff/ 320 then 
S5aIi+a:wrohgj Actual parameter, or expression intended to be 

enclosed within parentheses (or brackets), is 

followed by a wrong delimiter, 

S5aL3, S6aL26, S6aLh2; 



1.29-2 



S5aL5*. Saccent : = S : = S - 2; 
S5aL6 : go to S1 L27 J 



S5aL7: if g > then £0 to S5aLlO; 



if c > then go to S5aL8; 



d : = -c; e : = P j 
go to S5aLli|; 



S5aL8: c : = st [S] + 2t32j 



S5aL9: d : = T; 

go to S5aLl3; 



comment 



Delimiter st[S^2] is regressive, for it is precedent 

to parentheses or "brackets in the text. If its rank 

should "be not greater than that of the delimiter to 

be read next regressivity is detected on S1L5. 

S5aL1; ; 

Then p is a constant, e, and g = OOOOOOtOl ...0, 

bit t indicating the representation of e; 

Then p is an identifier, st [S] (cf. SkL23), 

c being the address listed ,in Ij on S5L8. 

p is a string, c being the complement of the 

mentioned address (cf. compound S5b):; 

Thus the object programme of the string occupies the 

addresses d, d+1, ...e-1. 

a, e becomes the string key (cf. table 3)» 

S5aL7; 

As the parameter may be a label or a procedure- or x 

switch identifier declared later in the text, the 

parameter key may (and possibly can) not yet be 

formed. Thus a contra-declaration of identifier st [S] 

will be made according to p = 000000000 which 

constant is listed in table 2A together with a 

general explanation; 

The contra-declaration is to point to the address x 
where the key main word will be inserted in the object 
programme. As x is still unknown in this stage of 
the translation, the address d where contra-identifier 



1.29.3 



comment 



S5aLlO: d : = g + 2t26 x 63; 

S5aL11 : if e < or 2t2U & e 
then go to S5aLli+; 



c will be listed. in I, is stored in L as a - pre- 
liminary key main word to be used on S5aL20 for 
storing the internal equivalent of c. 
S5aL7; 

which is similar to the internal equivalent 
of , a simple variable (cf. table 2); 
Then constant e is either no integer or anyhow 
unsuitable for being used as a label. Thus no 
contra-dee larat ion is made. 

Otherwise the constant parameter e will be contra- 
declared according to p = 1 000000000 which constant 
is listed in table 2A together with an explanation:; 



c 
d 



= e + 2t2l+ x 63 + 2t32; 

= d + T; 



S5aLl3: SOe(c); 



S5aL12: c : = e + 2t2l+ x 63 + 2t32; which is a contra-identif ier; 

Again (cf • S5aL9) the • preliminary key main word 

points to an address in I. 

S5aL9; 

Thus contra-identif ier c is listed in I. 

On S5aL20 its internal equivalent is stored. 

S5aL7, S5aLl1, S5aL26; 
S5aLlU: if f / 330 then go .to S5aLl6; Then delimiter f is no comma, thus the actual 

parameter part is closing in the text. 

f is a comma (cf. table 1B):; 
S5aL15: SOm(d) ; SOm(e); Then there is in L: 

£o to S5L9; st {SO] = by-wprd e, and 

st [SO + 1 ] = main word d of parameter key, and 

the next actual parameter is read. 

S5allU; 



1.29.U 



S5aLi6: S0(0); 



S^aLl7: if d < then jgo to S5aL21 ; 

S5aLi 8 : g : = P + 1 ; 

c : = 8191 or dj 



d : = d - c; 
S5aLl9: if d = then go to S5aL20; 



d : - d + P; 



g : = g + 2t32; 



S5aL20: if c > T then st[c - 1]: = g; 



comment 
Then, in the object programme, st[P - 1 ] = 0, 
st[p] becoming the by-word of the parameter which 
is the last element of the parameter list, , 
Transport cycle: 
S5aL22 ; 

Then parameter i.s a non- trivial expression and the 
key is ready (ef. S5aL25) ; 

The key main word is to be stored on address g; 
Then c is either = 0, or the address where the 
required contra-^-declaration is to be listed in I, 
or the address where the object programme of the 
string begins j 

Then parameter is either a single identifier or 

a string. 

Parameter is a constant:; 

Then the key of the parameter looks as follows : 

st[P]= constant e, 

st [P + 1 ] = d = P +. 111111t0l 0...0; 

which = P + 1 + 2 . If c / 0, then constant e 

may occur as a label (cf. table 2A). 

S5aLi9; 

which is the internal equivalent of the contra- 

identifier stored in I on S5aLl3. It refers to the 

main word of the parameter key which is to be formed 

or modified, when the translator will have arrived 

on S3bL23. 

S5aLl7; 



1.29-5 



S5aL21 : SO(e)j S0(d); 



S5aL22: e : = st[S0] ; d : = 
SO : = SO + 2; 
if d / then go to 

S5aL23: S : = S - 2j SOa; 

st[d] : = P; 

go to S5ali+; 
S5aL2V: If mark / then go 



SO(return) ; 



S5aL25: e : = c + EO; 

d : = 2t23 x 1017; 



S5aL26 : 

S5aL27: 



go to S5aLli+j 
P : = P - 1; 



■ comment 
Thus there has "been added to the object programme: 
st[p - 2] = "by-word e, and 

st[P - 1] = main word d of the parameter key; 
st[S0+l] ; Thus next parameter key is extracted from L; 

S5aLl7; Then the next key is transported. 

All keys have "been stored in the object programme; 
Then d is the address denoted with- st[S - k] 

on. S5L9; 

which is the key address of the function designator 

or procedure statement; 

S5aL3; 
to S5aL27; Then mark = 1, the parameter having the form i[E], 
in which identifier i = st[S], 
i is expected to "be either an array- or switch 
identifier. 

Parameter is a non-trivial expression differing 
from i [E] : ; 

cf. table IE. In the object programme of a + 

parameter i[E] which is a subscripted variable or 
switch designator, the last word = instead of return. 

S5aL27; 

cf. table 1E; + 

d, e is the key of an actual parameter which is x 

a non- trivial expression; (cf. table 3); 

S5aL2ij.; 

Then st [P] is either an ar2 instruction or 

(cf. S6aL6l); 



1.29.6 
comment 
SOs; The mentioned identifier i is contra-declared 

because the ar2 instruction might, and. a zero must 
he replaced later by a jump instruction. 
A zero is added to the parameter's object programme; 
go to S5aL25 
end S5aj 



"begin 



S5t>L1 : SOa ; 



if d / 320 or c = 
then go to S5bL2; 
st[S - 3] : = - c; 

go. to inputl ; 



S5bL2: wrong; 



end S5"b; 



1.30.1 
comment 
Compound S5b. 

Action of delimiter lsq (cf. table 1B); 
Then d = delimiter st[S - 2], the parenthesis 
having the value 320; 

Otherwise the string beginning in the tesct is an 
actual parameter; 

Thus the address P listed in L on S5L8 is replaced 
by its complement; 

Then the string is read. For storing the successive 
words, procedure SO is recommended, because it also 
pays attention to the position of the list L. 
After skipping delimiter rsq, . inputl goes to S1L28; 
This string is no actual parameter thus perhaps a 
piece of code programme to be included in the object 
programme? 



1.31.1 



; be£in 

S6L1: f : = 321; 

i£ D < then go to S6L10; 

S6L2: SOsl; 



if e = then 
S6L2a: wrong; 
S6L3: D : = D + 2t32; 



S6LU: if B or 2f29 / then go to 

S6L6; 
S6L5: e : = P; 



go to S6L7; 
S6L6 : e : = q; 



T1 : = c; 



comment 
Compound statement S6 . 
Pre-action of the opening symbol [ • 
cf. [ in table 1B; 
Then a subscript list is beginning in the text. 

- bound pair list:; 
Then the following assignments are performed: 
c = value, variable T had, when the 1st declarator 
of the block was read (cf. S3aL5), 
d = Value 322 of the opening symbol begin , 
e = address, reserved for the pre-value [a] of the 
1st array, called a in the explanations (cf. ShLlk 
and ShLl6); 

Then a list of array identifiers has been omitted; 

for D must be negative during the translation of the 

expressions of the bound pairs. Then the tests oh 

S6L1 and S2+L1 succeed; 

Then the arrays are not own . 

Arrays are own : ; 

which =1 + address where pre-value [c] of c, the 

last array of the list, is to be stored later 

(cf. S6aLhi); 

S6L4; 

That address is reserved for the internal variable u. 

Thus address e + 1 is reserved for pre-value [c] of c, 

the last array of the list; 

for, within the bounds, there only occur non-local 

variables. 

S6L5; 



X 
X 



1.31.2 
comment 
S6L7: SOc(e); 

S6L8: e : = e + R + 2t23-2 + cf. ar1 in table 1D; 

2t26 x 126; 
SOe(2t2i4- x 62) j In the case of an o wn declaration, the internal 

equivalent of the factor identifier 2 ^ x 62 is not 
e and will be inserted later on S6aL38; 
S6L9: go to S3L3; Then, for translating a hound pair list, there is 

listed^ in L: 

st[S - 5] = address reserved for the pre.-value [a] of 

st 
a = 1 array of the list mentioned in the 

explanations, 

st[S - h] = ~ 1 + address reserved for the pre-value 

[c] of c = last array of the list, 

st[S - 3] = -1 + number of bound pairs already 

translated, 

st[S - 2] = value 321 of [ , 

st[S - 1] = 0. 

S6L2; 
S6L10: SOh; for a procedure statement with actual parameters can 

be the 1st statement in the compound tail of a block 

(cf. S3L2); 
S6L11 ; if g/ then go to S6L15; Then [is preceded by an array identifier; 
S6L12: if e - then go to S5Lh; Then there is beginning an expression enclosed 

within brackets, which is no subscript, 
[Is preceded by either a formal parameter or a switch 

identifier:; 
S6L13: if e or (2t32 + 2t23) / then cf. ar2 in table ID. 

e : = 2t26 x (63 - 125); Then [ is not preceded by a formal parameter. Thus x 

it is preceded by a switch identifier whose declaration" 

may, of course, occur later in the text; 



1.31.3 



S6L1U: st[S - 1] : = e + 2t26 x 

(126 - 63); 

go to S6L18; 
S6L15: if g "."> then 
S6L1 5a: wrong; 
S6L16: st[S - 1] : = g; 



comment 
That is either the an instruction referring to a 
formal parameter, or a positive and harmless 
constant; 
S6L1 1 ; 

Then [ is preceded by a number; 

which is the an instruction listed in I on S6L8 and 

referring to the 1st factor of the array declaration; 



S6L17: e : = U + 2t3l ; 



S6L18: S : = S + 2; 

if S + 1 > T then SOg; 
st[S - 1] : = e + 2t26 x 

(125 - 63); 
SOc (- mark) ; 
st[S - 1] : = 0; 
S6L19: £0 to S3L5; 



Then "bit e = 1 as it is in the case that e is the 

internal equivalent of a formal parameter. 

S6L14; 

as happens in procedxtre SOc; 



as is indicated in table 1+C; 

Then, for translating a subscript list, there is 

listed in L: 

st [S - 7] = an an instruction or a positive constant, 

st[S - 6] = the array- or switch identifier or the 

formal parameter, preceding [ in the text, 

st[S - 5] = an ar2 instruction of'O, 

st[S - W\ = minus the value of mark which was 

present when [ was read, 



1.31.4 
comment 
st[S "- 3] = - 1 +" number of subscripts already- 
translated, 

st[S- 2] = value 32l" of'[ , 
st[S - 1] = 
end S6; 



Mjgin 



S6al4: d : = st[S - k]; 
S6aL2: if d .-< • then go to 



S6aL3: if D or 2t29 = then go to 

S6aL27; 
S6aLh: SOkj 



S6aL5: d : = st[S - k]; 
S6aL6: if d & » then go to 

S6aL7: if D or 2t29 = then 
S6aL7a :wrong ; 



1.32.1 

comment 

Compound statement S6a. 

After-actions of the opening symbol [ . 

Delimiter f read last is either a comma or a colon 

or ] . On 31 L1 (or S1L18) the value of st[3 - 3 ] as left 

by compound S6, has already been assigned to variable c. 

Progressive : 

In the text, delimiter f is preceded by a trivial 

expression p (a constant or identifier). 

S6L1; 

Compare S6L9 with S6L19; 
S6aLi|.3; Then p is a subscript. 

p is a bound: ; 

Then declaration is own * 

Declaration is not own ; • 

Thus p is translated. 

Regressive: 

expression p is not trivial and is already 

translated. 

S1L21; 

cf. S6aL1 ; 
S6aL53; Then p is a subscript. 

p is a bound:; 



S6aL8 : if c / then d : = d + 1 ; 



Please only constant bounds : in an own array 

declarations; 

Thus, in the case of the 1st bound pair, d is 

the address of variable u, otherwise d is the 

address of variable v = [c], as is indicated in 

the explanations; 



1.32.2 



S6aL9: JL£ t t 331 then £2. to S6aL12; 
S6aLlO: S0(d+R+2t23+2t26x1l7) ; 



S6aLH: Saccent : = 81 91; 
go to S1L27; 



s6aL12: if c = then q : = q - 1 ; 



S6aLl3: S0(d+R+2t23+2t 26x74) ; 



S6aLlk: S0(q+R+2t23+2t26x115) J 
S6aLl5: if c = then e : = else 

e : = c + 2; 
S6aLl6: SO(e); 



S6aLl 7 : q : = q - 1 ; 



S6aLl8: st[S - 3] : = c : = c + 1 ; 



S6aLl9: if f = 330 then go to S6aL11 ; 



comment 
Then delimiter f is no colon, 
colon:; 

cf. store accu in table 1D. 

Thus u : = accu or v .: = accu is translated, 
entry, S3bL5, S7aL9, S7aLl7, S6aLl9; 

As long as S 1 has the value 8191> the tests on 

S1L7, S5LLi- and S6aLl+l|- cannot succeed. 

S6aL9; 

the latter "being the same as q : = d - 1 • 

Then q is the- address to "be reserved for the 

variable H,, the value of which is the number of 

array elements; 

cf. - in table 1A. 

Thus accu s = accu - u or accu : = accu - v is 

translated; 

cf. store factor; in- table 1B; 

else e : = d - q may be written instead; 

Thus the constant or k - i + 2 (l < k, cf. 

explanation) is subsequent to the store factor ... 

instruction; 

That address is reserved for the variable to be 

introduced next which is possibly another factor 

S6aL36, S6aL58; 

Thus the number of bound pairs or subscripts is 

counted; 

Then f is a comma; 



x 



1.32.3 



comment 



if f / 321 then 
S6aLl 9a : wrong; 

S6aL20: D : = D + 2t32; 

S6aL21 : S : = S '- 2; 

S6aL22: if D or 2t29 = then go to 

S6aL37; 
S6aL23: SOa; 



S6aL2U: SO(c+R+2t23+2t26x1li0 ; 
S6aL25: SO(d - c)j 



S6aL26 : go. to S5aL5 ; 

S6aL27: if g = then go to S6aL7a; 

S6aL28: if g + 2t25 x 127 < then go 

■ to S6aL7aj 
S6aL29: if f/ 331 then go to S6aL32; 
S6aL30 : if c / then v : = e 

else u : = e; 
S6aL31 : go to S1L28 
S6aL32: if c / then e : = e - v 

else e : = e - uj 
S6aL33 : i£ e < then 
S6aL33a iwrong; 

e : = e + 1; 



Then a subscript, or a "bound of an array declaration, 
is not followed by the required comma, ] f or colon; 
which compensates for S6L3; x 



for own ; 

Then is (cf. S6L9): 

c = address reserved for variable [a], 

d = address reserved for u; 

cf. store pre-value in table 1D; 

In the object programme, the store pre-value 

instruction is followed by the constant which is the 

difference (address of u minus that of [a] ); 

The brackets are exhausted. 

S6aL3; 

Then a variable bound occurs within a declaration 

°£ own arrays; 

Then the bound has not the integer representation; 



S6aL29; 



Then lower bound is greater than upper bound; 



1 0*.*+ 

comment 
S6aL3l+: SOm(e); In the store, the calculated constants must appear 

in the same order as have the factor variables of the 
arrays being not own . Storing in L through procedure 
SOm is a means of reversing the order; 
S6aL35; if c = then go to S6aL36; 

8t[S0 + c ]: = st[SO + c] x e; which is the next value of H. ; 
' u : = u x e + v; which is the next value of u. 

S6aL35j 
S6aL36: £0 to S6aLl8; S6aL22, S6aL37; 

S6aL37: "g : = st[SO]; SO(g); 
• SO : = SO + 1; 
c : = c - 1 ; 

if c / then go to S6aL37j 1'hus the constants h . , ••• h^ . , and B^ are listed 

in the object programme, 
g being = H. at the end; 
S6aL3,8; ,st[T+1.] : = P+2t23+2f 26x1 26-2; which is the correction announced on S6L8; x 

S6aL39; SO(u); Constant u is stored; 

S6aLhO: SOa; cf. S6aL23. 

Addresses c and d-i are reserved for the first 
and last pre-value constants. 
S6aL2+1j 
S6aLkl : st[c];. = P - u; P : = P =~gr 
c : = c + 1 ; 

if c.V <3- then go to S6ali+1 ; Thus space for own arrays is reserved in object 

programme ; 
. . S6aLh2 ; , if , P>S0-2 then SOg; 

, _go to S5aL5; S6aL2; 

S6aLh3: if c/ then go to S6aLU5; Then the identifier or constant p to be translated 

is not the first subscript of the list. 
First subscript:; 



S6aU44: if Saccent + 2 < S then SOd; 

SOk; 

go to S6aL5i+; 
S6aLi+5: P : = P - 1; 

S6aLi+6: if g / then go to S6aL50; 
S6aLi+7 : if e < then go to S6aL52 ; 



S6al48: e : = e + 2t26 x (72 - 63); 
S6aL49 : £0 to S6aL5l j 
S6aL50: SO(g + 2t26 x 72); 

S6aL51 : SO(e); 

go to S6aL54; 

S6aL52: P : = P + 1; 
SOp; 



S6aL53: if c / then . 

S0(2t23 *"3 + 2t26 x 72); 



S6aL5U: if f=32l then £o to S6aL59; 



1.32.5 

comment 
as happens also on S1L7; 
Thus 1st subscript is translated; 
S6aLi+3 j . 

Then st[p] = instruction partres, stored at the 

previous action of this compound S6a on S6aL57; 

Then g indicates tiie representation of e, 

e being a constant subscript 

Then subscript p is a procedure identifier namely 

no simple variable and no formal parameter. 

Simple variable or formal parameter; 

cfi "■+ in table 1A; x 

S6aL46; 

cf. S6aLU8. x 

S6aLU9; 

not: to 53* 
S6alA7; 

Thus instruction partres remains in the object 
programme; 

Thus a contra-declaration of function name p is made. 
The test on S6aL53 succeeds. 
.S6aL6; 
cf. + in table 1A. This instruction 

accu : = accu + (partial result) corresponds to the x 
instruction partres, added to the object programme 
during the previous action of this compound S6a on 
S6aL57. 

S6alM, S6aL51 ; 

cf. ] in table 1B. Then the last subscript has been 
translated. 



1.32.6 



S6aL55: d : = st[S - 7]; 

if d > then 
S6aL55a:wrong; 

S6aL56: if d - 2t23 - 2t 26x126 < 

then SO(d) else c : = d - c; 
80(c); 



S6.aL57: SO(partres); 



S6aL53: jgo to S6aLi8; 
S6aL59: mark : = - d; 

S6aL60: Saocent : = S 
S6aL6l : SO(st[S + 1]); 



= S - 6; 



comment 
Subscript list is not yet exhausted:; 
That is either an an instruction referring to an 
array identifier or formal parameter, or positive; 

Then 2 or more subscripts are attached to an identifier 
which is no array identifier and no formal parameter; 



Thus the an instruction just stored either refers 

itself to the factor h i (i < k) required, or it 

refers to the key of a formal parameter which refers 

to the factor hj. of the array represented by the 

parameter, while an is followed, in the object 

programme, by the constant k - i - 1; 

cf. table 1E 

This instruction partres corresponds to the 

instruction 

accu : = accu + (partial result) 

which will be added to the object programme during 

the next action of this compound (cf. S6aL53). 

However, often both instructions are dispensable; 

S6aL5U; 

Thus the value of mark, listed in L on S6L19, is 

restored; 

Compare this with S5aL5; 

Then st [P - l]is the ar2 instruction or 0, mentioned 

on S6L19. 



1.32.7 

comment 

st[s] is the identifier to which the subscripts 

are attached in the text; 
£0 to S1L28 
end S6a; 



1.33.1 



begin 

S7L1 : SOh; 

S7L2: st[S - 1 ] : = 0; 

SOc(o); 

s t[S - 1 ] : = - P; 

f : = 324; 

go to S3L2+J 



comment 
Compound statement S7. 
Pre-action of the opening symbol for 
cf. S3L2j 

Thus an identifier or constant preceding opening 
symbol for is skipped; 



Then, for translating a for statement, there is 

listed in L: 

st[S - 5] = 0, 

st[S - h] = to he replaced by the internal 

equivalent of the controlled variahle v on 

S9LU, 

st [S - 3] = minus address P' where the object 

programme of the for list element to be read next 

is to begin, 

st [ S - 2 ] = value 324 of the opening symbol for, 

st [ S - 1 ] = 



end S7; 



1.3I+.1 



"begin 



S7aL1 : SOk; 

-■' 1 



S7aL2: S : = S - 2; 
' SOa; 



if d £ then 
S7aL2a :mn?ong; : 



S7aL3; if c < then £0 to S7a3>|8; 



S7aLAj.: S i = S + 2; 

If f / J>2k then go to S7aLlO; 
S7aL5t .If e < then go to S7aL7; 

S?aL6: st[e] : = d+2t26 x (123-63); 



comment 
Compound statement S7a. . 
After-actions of the opening symbol for • 
Delimiter f read last may be a separation symbol 
step , unti l., while , comma, or do, or the closing 
symbol of the for statement. 
Progressive: , 

Expression p preceding delimiter f in the text 
i a trivial (an identifier or constant), 
S1L6; 

for transla ci on of p. 
Regressive: 

Expression p is not trivial. 
S1L21; 

Thus internal equivalent of controlled variable is 

assigned to variable d 

(cf..st [S - k] in compound S7); 

Then either controlled variable is no simple variable 

and no formal parameter, 

or even : = has been omitted; 

Then af ter-raction of for with do has already taken 

place so. that f is the closing symbol (compare 

st [S - 5] in S7aLl6 with that in S7aL15 or S7L2); 

Thus previous value of S is restored; 

Then f is either comma or do (cf. 32i+ in table 1B); 

Then delimiter f is either step or while . 

Delimiter f » until :; 

cf. fori in table ID; 



1.34.2 



comment. 



S0(for3); ,, 
c :' = 0; 
£2 to S7aL8; 
S7aL7: c : = P; 
S0:(-e); 



S0(d •■+. 2t26 x (117 - 63)); 

S7aL8: st[S - 3] : = c; 
S7aL9 : jgo to S6aL1 1 ; 

S?aLlO: if e > then go to S7aLl2; 



cf . table 1Ej , 
S7aL5; 

Thus address where object programme of while- or 

step element begins, is retained in object programme 

itself on address c; 

cf . store accu in table ID. 

S7aL6,. S7aLi5; . .. 

st[S . — 2] = f or remains in L, f disappears. 

S7aLU; 

Then value of e has been listed in L during 

previous action of this compound on S7aL7-8. 

It is a while element whose object programme is to be 

completed; 



S7aLl 1 j -if e / then 
begin 

S0(d + 2t26 x (11>- 63)); 
b : = for2; 
end 
else b : = d + 2t26 x (74-63); cf. in table 1A. It is a step element 



element is an expression 
cf. table 1E 



x 

+ 



S0(b) ; 

go to S7aLlU; 



S7aLl 2 : b : = st [ e ] ; 



Object programme of step - or expression element is 

ready. 

S7aLlO; 

That is the address c of S7aL7. Element has the 

form: F while Q. 

S7aLl3; 



1.34.3 



comment 



S7aL13: st[e] : = st [e - 1]: 
e : = e - 1 ; 
if e £ b then go to S7aLl3; 

st [b] : = for2; 



S7aLlU: if f = 323 then £o to S7aLi6; 

if f / 330 then 
S7aL1 4a : wrong; 
S7aLl5: st[S - 5] : = P; 



S0(c); 

c : = - P; 
£0 to S7aL8; 



S7aLl6: e ; = P+2+2t23+2?26x124; 
S0(e); 
st[S - 5]: = - P; 

S0(0); 

S7aLl 7 : if c = then £o to S6aLl 1 ; 
b : = c; c : = st [ c]; 
st[b] : = e; 
jgo to S7aLl7; 



Thus object programme of expression F is shifted 

over one place; 

cf. table IE. 

Thus instruction for2 precedes object programme of P. 

S7aLl 1 ; 

cf. do in table 1B; 

Then for statement contains wrong delimiter; 

That is the address where to insert a for instruction 

later (cf. S7aLl6); 

On address st[S - 5] the previous address where to 

insert a for instruction, is stored; 

Thus c is the complemented address where the object 

programme of the next for list element is to begin. 

S7aLlij.; 

cf . for in table 1D; > 

Thus last for instruction is stored; 

That is the complemented address where to store a 

pass instruction later (cf. S7aLl8); 

For the time being, is inserted. 

S7aLi7; 

Then all for instructions have been inserted; 

Thus next for instruction is inserted on address b; 
S7aL3; 



1.34.U 

comment 
S?aLl8: SO(forO); cf. table 1E. + 

Thus object programme of for statement is concluded 

by adding the word forO; 
st[-c]: = P + 2t23 + 2t26 x 121;Thus a bridging pass instruction (cf. table 1D) is 

inserted; 
go to S1L17; There variable S is again (cf. S7aL2) decreased 

with 2, and the delimiter preceding for in L, is 

going to after-act with delimiter f 
end S7a 



1.35.1 



"begin 

S8L1 : SOh; 

S0c(325); 



S8L2: mark : = 2; 

Saccent : = 8191; 
go to S1L28 
end S8; 



comment 
Compound statement S8. 

Pre-action of the opening symbol go to; 
cf. S3L2; 

Then st [ S - 2] is the value 325 of go to 
(cf. table 1B) 
S8bL6, S9L3; 
cf. table UC; 
as happens also on S6aLH j 



1.36.1 



begin 



S8aL1 : if mark = then go to SgaL3; 
P : = P - 1; 

S8aL2: SCI; 
S8aL3: mark : = 0; 
£0 to S1L17; 

end S8a; 



comment 
Compound statement S8a, 

After-actions of the opening symbol go to • 
Regressive (cf. S6"bLl ) : 
S1L21; 

Progressive (cf. S8"bL2): 

S1L6; 

S2aL32, S8aL1, S8bLH; 

Delimiter st[S - h] is going to after-act with 
delimiter f 



"begin 



S8bL1 : if mark = then go to S8bL3 ; 



P : = P - 1; 



S8bL2: SOI; 



S8T3L3: S : = S - 2; SOaj 



S8bL4: o ; = d + 2t23 + 2t26 x 121; 



1.37.1 
comment 
Compound statement S8b. 

After-action of the opening symbol switch • 
f = delimiter read last is either the separation 
symbol comma or the closing symbol semicolon of the 
switch declaration. ... 
•Regressive: 

The designational expression p preceding delimiter 
f in the text, is not a single label. 
S1L21; 

Then, p contains more than a switch designator and 
has already "been translated and contra-declared, 
p is a switch designator i[E], Translation of E is 
ready. st[P - 1] = or an ar2 instruction 
(cf. S6aL6l) which is to "be replaced "by a jump 
instruction later. 

Identifier i is available as st[S] and g = 0; 
Progressive: 
p is a label* 
S1L6; 

Thus there is made a contra-declaration of the label 
or switch identifier, referring to address P - 1 
where a jump instruction will be inserted later 
(cf. S3bL39). 
S3bL1; 

Now d is the address where the designational 
expression preceding delimiter f in the text, has 
it object programme beginning (cf. S8bL6 and SI4L39); 
which is the pass instruction referring to d; x 



1-37.2 



S8"bL5 : 


iff/ 


- 33° then . 


S8"bL6: 


S : = 


S + 2; 






Bt[S - 


■k] : = 


P; 




SOm(c; 


i; 






E2. 12 


S8L2; 





S8bL7: d : = 0; 



comment 
Then f is a semicolon, 
f is a comma: ; 
Thus previous value of S is restored; 

For the time "being, pass instruction is listed in L; 
for reading next switch list element. 

S8bL5; 

for counting the entries of the switch list i.e. 

pass instructions preliminarily listed in L. 

S8bL8; 



S8bL8: d : = d + 1 ; 

S0(c); SO : = SO + 1; 

c : = st [SO - 1]; 

if c/ then go to S8bL8; Then the next pass instruction is stored in the 

object programme. 

The list of pass instructions has been stored in the 

object programme:; 

cf. Si4L38; 

Thus internal equivalent (table 2) of switch 

identifier is listed in I"; 
S8bL11: S0(q + R + 2t23 - 1 + 2f26x112);cf . switch in table 1D; 

S0(d) • Thus, in object programme, the switch instruction 

is followed by the number of entries; 

jgo _to S8aL3 ; ' - 
end S8b; 



S8bL9: 
SSbLlO: 



q. : = a + . 1; 

st[e - 1] : = P+R+2t23x127; 



x 



1.38.1 



begin 



S8dL0: wrong; 



S8dL1 : if D > then go to S8dL8; 

if f ^ 332 then 
S8dLla:wrong; 
S8dL2: S : = S - 2; SOa; 

S8dL3: R : = R - 2113; 
S8dLU: if (st[e - 1] or 2t2i+) = then 
SO (extract procedure); 

S8dL5: SO(Y); 



S8dL6: if st[d - 1] < then 

st[d - 2] : = X1; 
S8dL7: e : = e - 2; £0 to S3bLl2; 
S8dL8: of. f = 332 then go to S8dL9; 

if (p or 2t 23) = then go to 

S5L2; 

£2 to S1L28; 



comment 
Compound statement S8d. 

After-actions of the opening symbol procedure . 
Progressive: 
81 L6; 

Procedure body is a dummy or a single identifier 
or constant. 
Regressive: 
S1L21 ; 

Then body must still be read. 
Body has- been translated:; 

Then procedure body is not followed by a semi-colon; 

Then c = q' , d = P f +2 and e = T 1 are the values 

mentioned on Si|Ii3'i ; 

for compensating the action of S2+L26; 

cfo table lEr 

Thus instruction extract procedure only appears in 

the object programme of a type procedure; 

table 1E« 

Thus, in object programme of any procedure, 

instruction Y is the last word; 

Thus, in object programme of a procedure having no 

parameters, instruction X1 of table 1E is 1st word; 

S8dLl ; 

for semi-colon; 

for reading the next formal parameter; 

for reading parameter to be next specified. 

S8dL8; 



x 

+ 



1.38.2 

comment 
S8dL9: Tl : = T; D : = 2t23 ,x 5U3j Table 2; x 

go to S6aLl 1 
end S8dj 



1.39-1 



begin 

S9L1 : If g / then 
S9Ha:wrong; 
S9L2: SOh; 



S9L3: if d = 328 then go to S8L2; 

S9Li+: if d / 324 then go to S9L5; 
atlS - k] : = e; 

S9L5: if e < then go to S9L11 ; 

if e/ then go "to S9L7; 



if (st[P - 1] or 2t 26 x 127) £ 
2t26 x 125 then 
S9L5a: wrong; 



S9L6: e : = - 1 ; 

£2 to S9L9; 
S9L7: e : = e + 2t26 x (117 - 63); 
S9L8: if e - 2t23 - 2t26 x 117 > 

then go to S9L10; 



comment 
Compound statement S9. 
Pre-action of the opening symbol : =; 

Then : = is preceded by a constant; 

as happens also on S3L2. The procedure performed the 

following assignments : 

d : = st[S - 2], e : = st [ S - 1 ] ; 

Then the delimiter listed last in L is switch 

(cf. Siji39); 

Otherwise the delimiter listed last in L is for ; ; 

as was announced in compound S7; 

S9I4; 

Then : = is preceded in the text "by the identifier 

of a type procedure; 

Then either a simple variable or a formal parameter 

is precedent to ,:= 

A subscripted variable is precedent to : = ; 



Then, within an assignment statement, : = is not 
preceded by a (simple or subscripted) variable or 
formal parameter or identifier of a type procedure; 

S9L5; 

cf. store accu in table 1D; 

Then a simple variable is precedent to : = 
Formal parameter; 



v. e: ■':-:-*. e- ^ 2t26; 

S9L9: §0(k); 

e ; = extract address; 

S9L10; st[S - 1] : = e; 

f : =323j 
S? to S3I4; 
S9L11: f : = e + 2t32; SOf; 

e\: * (d p£ 2t26~2tl3)+2tl3 

+ 2t26x1 13+3+QO; 

|£ (d o£ 2t2U .+ 2t29) = 

then go to S9L10; 

^ $o S9L5a 

end S9; 



1.39.2 
comment 
cf. store address in table 1D. 
S9L6; 

Then st [ P - 1 ] is either a store address instruction 
or the constant -1 ; 

cf. table 1E. + 

S9L8, S9L11; 

Thus either a store accu-or store procedure- or 
extract address instruction is listed in Lj 
cf. : = in table 1B; 

S9L5; .... 

Thus procedure identifier is again looked up; x 

cf . store procedure and Q0 in tables 1D and 

1B; ....', 

Then identifier signifies a type procedure; 



+ x 



1.40.1 



begin 



S9aL1 : SOk; 



S9aL2: S0(c); 



£0 to S1L17; 
end S9a; 



comment 
Compound statement S9a. 
After-actions of the opening symbol : = 
On S1L1 or S1L18, the value of st fS - 3] has been 
assigned to variable c. 
Progressive: 

The expression preceding delimiter f in the text 
is a single identifier or constant p. 
S1L6; 

Thus p is translated. 
Regressive: 

p has already been translated, 
S1L21; 

Thus st[P - 1 ] is the instruction listed in L on 
S9L10; 
cf. S8aL3; 



input : 



begin 



end 



inputl : 



begin 



end 



end tranaift^P 



